Unit UnDmLokatiebeheer;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmLokatieBeheer = interface(IAppServerSOAP)
    ['{E033D04B-2598-446B-A38D-80FD99520110}']
  end;

  TDmLokatieBeheer = class(TSoapDataModule, IDmLokatieBeheer, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrLokatieBeheer: TADOQuery;
    PrvLokatieBeheer: TDataSetProvider;
    QrLokatieBeheerID: TAutoIncField;
    QrLokatieBeheerNAAM: TStringField;
    QrLokatieBeheerLOKATIE_TYPE_ID: TIntegerField;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmLokatieBeheerCreateInstance(out obj: TObject);
begin
 obj := TDmLokatieBeheer.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmLokatieBeheer, TDmLokatieBeheerCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmLokatieBeheer));
end.
